﻿Imports CoreClassLibraryCMS

Namespace Proses
    Public Class Store
        Inherits JSonDataCrud

        Public Overrides Function DeleteData(param As System.Collections.Specialized.NameValueCollection) As System.Web.Mvc.JsonResult

        End Function

        Public Overrides Function ReadData(Skip As Integer, Take As Integer, SortDir As String, Sort As String, param As String) As System.Web.Mvc.JsonResult
            Dim x As New DataMaster.clsMSTSTORE
            Dim m As ADODBU.RowClassList(Of DataMaster.clsMSTSTORERow)
            Dim y As New Web.Mvc.JsonResult

            m = x.GetRowList(Connection.GetDBConn, param)

            Dim res = New With {.success = True, .totalrecords = m.Count, .ListDataObj = m.Skip(Skip).Take(Take)}
            y.Data = res
            Return y
        End Function

        Public Overrides Function SaveData(param As System.Collections.Specialized.NameValueCollection) As System.Web.Mvc.JsonResult

        End Function

        Public Overrides Function UpdateData(param As System.Collections.Specialized.NameValueCollection) As System.Web.Mvc.JsonResult

        End Function
    End Class
End Namespace